The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 03
META.yml 11
lib/Plack/Request.pm 11
lib/Plack/Response.pm 11
lib/Plack/Server/ServerSimple.pm 11
lib/Plack.pm 11
t/Plack-Handler/fcgi.t 12
7 files changed (This is a version diff) 610
@@ -2,6 +2,9 @@ Revision history for Perl extension Plack
 
 Take a look at http://github.com/miyagawa/Plack/issues for the planned changes before 1.0 release.
 
+0.9963  Mon Jan 10 16:46:33 PST 2011
+        - Fixed fcgi.t for lighttpd < 1.4.23 (confound)
+
 0.9962  Sat Jan  8 21:07:30 PST 2011
         - Same fix as 0.9961 but works around the issues with Strawberry unarchiver
 
@@ -38,4 +38,4 @@ requires:
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://github.com/miyagawa/Plack.git
-version: 0.9962
+version: 0.9963
@@ -2,7 +2,7 @@ package Plack::Request;
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9962';
+our $VERSION = '0.9963';
 $VERSION = eval $VERSION;
 
 use HTTP::Headers;
@@ -1,7 +1,7 @@
 package Plack::Response;
 use strict;
 use warnings;
-our $VERSION = '0.9962';
+our $VERSION = '0.9963';
 $VERSION = eval $VERSION;
 
 use Plack::Util::Accessor qw(body status);
@@ -1,6 +1,6 @@
 package Plack::Server::ServerSimple;
 use strict;
-our $VERSION = '0.9962';
+our $VERSION = '0.9963';
 $VERSION = eval $VERSION;
 
 use parent qw(Plack::Handler::HTTP::Server::Simple);
@@ -3,7 +3,7 @@ package Plack;
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9962';
+our $VERSION = '0.9963';
 $VERSION = eval $VERSION;
 
 1;
@@ -14,7 +14,8 @@ for ('', '/fastcgi') {
     $ENV{PLACK_TEST_SCRIPT_NAME} = $_;
     test_lighty_external(
         sub {
-            ($lighty_port, $fcgi_port, my $needs_fix) = @_;
+            ($lighty_port, $fcgi_port) = (shift, shift);
+            my $needs_fix = $_ eq '' ? shift : 0;
             Plack::Test::Suite->run_server_tests(run_server_cb($needs_fix), $fcgi_port, $lighty_port);
         }
     );